Public Class clsFormDtls
  Inherits cbadb01l

  Public mStrFormSerialNumber As String
  Public mStrFormDscrpn As String
  Public mStrParentForm As String
  Public mStrFormName As String
  Public mIntFormHght As Integer
  Public mIntFormWdth As Integer

  Public Sub mPrSelect(ByRef aBlnDataExistCndn As Boolean)

    Dim lStrQuery As String = ""
    Dim lBlnDataExistCndn As Boolean

    lStrQuery = "Select " & _
                  "FDTL_FORM_NUMBER " & _
                  ",FDTL_FORM_DSCRPN " & _
                  ",FDTL_FORM_NAME " & _
                  ",FDTL_PRNT_FORM " & _
                  ",FDTL_FORM_HGHT " & _
                  ",FDTL_FORM_WDTH " & _
                "From FORM_DTLS " & _
                "Where FDTL_FORM_NUMBER = '" & mStrFormSerialNumber & "'"

    tvvd_exec_qury(lStrQuery)

    tvvd_ftch_data_exst_cndn(lBlnDataExistCndn)

    If lBlnDataExistCndn = True Then

      mPrPopulateData()

    End If

    aBlnDataExistCndn = lBlnDataExistCndn

  End Sub



  Private Sub mPrPopulatedata()

    mStrFormSerialNumber = tvst_getx_clmn_data("FDTL_FORM_NUMBER")
    mStrFormDscrpn = tvst_getx_clmn_data("FDTL_FORM_DSCRPN")
    mStrParentForm = tvst_getx_clmn_data("FDTL_PRNT_FORM")
    mIntFormHght = tvst_getx_clmn_data("FDTL_FORM_HGHT")
    mIntFormWdth = tvst_getx_clmn_data("FDTL_FORM_WDTH")
    mStrFormName = tvst_getx_clmn_data("FDTL_FORM_NAME")

  End Sub



  Public Sub mPrCloseDB()

    mPrDBDisconnect()

  End Sub
End Class
